(object triobj)
(colour triobj 1 0 0)
(shape-triangle triobj)
(draw triobj)

(location triobj 2 0 0)

(object another)
(colour another 0 1 0)
(shape-triangle another)
(draw another)
